﻿Imports Microsoft.TeamFoundation.WorkItemTracking.Client

Namespace TeamFoundationExtensions


    Module WorkItemTypeExtensions

        <System.Runtime.CompilerServices.Extension()> _
      Public Function SupportedByHeat(ByVal wit As WorkItemType) As Boolean
            Dim c As Controlers.TeamSystemControler(Of MainWindow)
            c = Application.ControlerFactory.GetControler(Of Controlers.TeamSystemControler(Of MainWindow))()
            Return c.CheckWorkItemField(wit)
        End Function

    End Module

End Namespace
